home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Amos / SupraProcs / OutLineText.AMOS / OutLineText.amosSourceCode
Encoding:
AMOS Source Code  |  1996-01-26  |  1.1 KB  |  29 lines
  1. '   ******************************************************** 
  2. '   ***                                                  *** 
  3. '   ***               Outline Text Procedure             *** 
  4. '   ***                                                  *** 
  5. '   ***                        by                        *** 
  6. '   ***                                                  *** 
  7. '   ***                   Joseph Bolin                   *** 
  8. '   ***                                                  *** 
  9. '   ******************************************************** 
  10.  
  11. Screen Open 0,320,200,4,Lowres
  12. Palette $0,$FE0,$800
  13. Curs Off : Cls 2
  14. _PRINTOUTLINE[64,64,"Outlined Text",1,0]
  15.  
  16.  
  17. Procedure _PRINTOUTLINE[_XPOS,_YPOS,_TEXT$,_COLOR,_OUTLINE]
  18.  
  19.    ' Inputs: _XPOS,_YPOS  Coordinates of text 
  20.    '         _TEXT$       Text to print 
  21.    '         _COLOR       Color of text 
  22.    '         _OUTLINE     Color of outline of text
  23.    ' Output: Prints outlined text on the current screen 
  24.  
  25.    Ink _OUTLINE,0 : Gr Writing 0
  26.    Text _XPOS-1,_YPOS,_TEXT$ : Text _XPOS+1,_YPOS,_TEXT$
  27.    Text _XPOS,_YPOS-1,_TEXT$ : Text _XPOS,_YPOS+1,_TEXT$
  28.    Ink _COLOR : Text _XPOS,_YPOS,_TEXT$
  29. End Proc